home *** CD-ROM | disk | FTP | other *** search
/ Extra Heft 12 / Extra Heft12.bin / input64 / 06_85.d64 / haushaltsbelege (.txt) < prev    next >
Commodore BASIC  |  1995-08-16  |  17KB  |  575 lines
  1. 100 IFPEEK(50307)=120THENPOKE50257,0
  2. 1000 REM*HAUSHALTSBELEGE*GERHARD MUELLER-GREIF*0561/44440*010485
  3. 1010 REM ************************MENUE**************************
  4. 1020 POKE53280,1:POKE53281,1
  5. 1030 RESTORE:PRINTCHR$(142);CHR$(8);"[154][147]";
  6. 1040 PRINT"[176][192][192][192][195][192][192][192][192][192][192][192][192][192][192][192][192][192][174][146]  "
  7. 1050 PRINT"[194] HAUSHALTSBELEGE [194][146]  "
  8. 1060 PRINT"[173][192][192][192][192][195][192][192][192][192][192][192][192][192][192][192][192][192][189][146]  "
  9. 1070 PRINT
  10. 1080 PRINT"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][146]";
  11. 1090 PRINT"[194][146]    F1 [146] EINGABE DER BELEGE            [194][146]";
  12. 1100 PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179][146]";
  13. 1110 PRINT"[194][146]    F3 [146] AUSGABE NACH KRITERIEN        [194][146]";
  14. 1120 PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179][146]";
  15. 1130 PRINT"[194][146]    F5 [146] KORREKTUR NACH BELEG-NR.      [194][146]";
  16. 1140 PRINT"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179][146]";
  17. 1150 PRINT"[194][146]    F7 [146] ABSPEICHERN / VERIFIZIEREN    [194][146]";
  18. 1164 PRINT"[173][192][192][195][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][195][195][195][192][192][192][192][192][192][192][192][189][146]";
  19. 1170 PRINT"":FR=FRE(64):R=INT(FR/38)
  20. 1180 PRINT"        [213][195][195][195][195][195][195][195][201]"
  21. 1190 PRINT"        [194]       [194] _ BYTES FREI"
  22. 1200 PRINT"        [202][195][195][195][195][195][195][195][203]";"[145][157][157][157][157][157][157][157][157]";FR
  23. 1210 PRINT"    NOCH ";""R"[157] EINGABEN [146]";" MOEGLICH ! "
  24. 1220 READDZ:DZ=DZ+1:BN=DZ-10000:BL=BN-1
  25. 1230 IFBL<10THENBL$=""+STR$(BL)+"[157][157][157]00"
  26. 1240 IFBL>9ANDBL<100THENBL$=STR$(BL)+"[157][157][157]0"
  27. 1250 IFBL>99THENBL$="[157]"+STR$(BL)
  28. 1260 IFR=2THENPRINT"         VORLETZTE DATENEINGABE        [146]"
  29. 1270 IFR=1THENPRINT"          LETZTE DATENEINGABE          [146]"
  30. 1280 IFR<1THENPRINT"          ENDE DER DATENEINGABE        [146]"
  31. 1290 GETMW$:IFMW$="[133]"ANDR>1THEN1350
  32. 1300 IFMW$="[134]"THEN2240
  33. 1310 IFMW$="[135]"THEN4520
  34. 1320 IFMW$="[136]"THEN5070
  35. 1330 GOTO1290
  36. 1340 REM ******************** E I N G A B E *********************
  37. 1350 IFBN<10THENBN$=""+STR$(BN)+"[157][157][157]00"
  38. 1360 IFBN>9ANDBN<100THENBN$=STR$(BN)+"[157][157][157]0"
  39. 1370 IFBN>99THENBN$="[157]"+STR$(BN)
  40. 1380 PRINT"[147]DATUM    :TT.MM.JJ       "
  41. 1390 PRINT"[145]BELEG-NR.:"BN$"[146]"
  42. 1400 PRINT"BETRAG   :*******          "
  43. 1410 PRINT"BER./ART.:[187][187][187][187][187]......."
  44. 1420 PRINT"EINN./AUSG.(+/-):*"
  45. 1430 IFPF$="N"THEN1470
  46. 1440 IFK<>1THENPRINT"****************************************[146]"
  47. 1450 IFK=1THENPRINTCHR$(18);"  ";D2$;" ";D3$;" ";D4$;" ";D5$
  48. 1460 GOTO1490
  49. 1470 PRINTCHR$(18);"  ";LEFT$(B$,8);"   ";MID$(B$,9,7);
  50. 1480 PRINT"   ";MID$(B$,16,12);"   ";RIGHT$(B$,1);" "
  51. 1490 PRINT"<CR>[146]     ZEILENSPRUNG - LOESCHEN[146]......"
  52. 1500 PRINT"<DEL>[146]    KORREKTUR IN DER ZEILE"
  53. 1510 PRINT"<C=><M>[146]  ABBRUCH DER EINGABE, MENUE"
  54. 1520 PRINT" [187][187][187][187][187] B E L E G B E R E I C H E  [187][187][187][187][187] [146]"
  55. 1530 PRINT" AUTO-      BANK-      BEKL-      BERUF "
  56. 1540 PRINT" COMP-      LEBEN      SCHEC      SONST "
  57. 1550 PRINT" TABAK      VERS-      WOHN-      ZEIT-"
  58. 1560 CS$=""
  59. 1570 EL=8:B$="":N$="TT.MM.JJ"
  60. 1580 GETEZ$:IFEZ$=CHR$(167)THENRUN
  61. 1590 IFE$=""ANDEZ$=CHR$(13)THEN1820
  62. 1600 IFEZ$=CHR$(13)THEN1940
  63. 1610 IFEZ$=CHR$(44)THENEZ$=CHR$(46)
  64. 1620 IFEZ$=CHR$(20)ANDLEN(E$)<1THEN1580
  65. 1630 IFEZ$=CHR$(20)THENE$=LEFT$(E$,LEN(E$)-1):GOTO1690
  66. 1640 IFEZ$>CHR$(15)ANDEZ$<CHR$(32)THEN1580
  67. 1650 IFEZ$>CHR$(95)THEN1580
  68. 1660 E$=E$+EZ$
  69. 1670 IFEL=7OREL=8THENIFLEN(E$)=ELTHEN1940
  70. 1680 IFLEN(E$)=ELTHEN1830
  71. 1690 L=LEN(E$)
  72. 1700 PRINTCS$;E$;MID$(N$,L+1,EL-L);"        "
  73. 1710 PRINTCS$;"";:FORI=0TOL:PRINT" ";:NEXT:PRINT"[157]^         "
  74. 1720 GOTO1580
  75. 1730 PRINT"":PRINTCS$+E$+"        "
  76. 1740 IFEL=8THENEL=7:N$="*******":GOTO1790
  77. 1750 IFEL=7THENEL=12:N$="[187][187][187][187][187].......":GOTO1790
  78. 1760 IFEL=12THENEL=1:N$="*":GOTO1790
  79. 1770 IFEL=1ANDK=1THENB$=B$+E$:DZ=BN+10000
  80. 1780 IFEL=1THENB$=B$+E$:GOTO5660
  81. 1790 B$=B$+E$:E$="":CS$=CS$+""
  82. 1800 IFEL=1THENCS$=CS$+""
  83. 1810 GOTO1690
  84. 1820 E$=LEFT$("............",EL)
  85. 1830 PRINT"":PRINTCS$;E$;" OK?<CR>[146]"
  86. 1840 IFEL=8THENPRINT"[145]                         "
  87. 1850 IFEL<>8THENPRINT"                         "
  88. 1860 SI=54272:POKESI+7,109:POKESI+8,175:POKESI+11,33
  89. 1870 POKESI+12,0:POKESI+13,240:POKESI+24,15
  90. 1880 GETEF$:POKESI+11,0
  91. 1890 IFEF$=CHR$(167)THENRUN
  92. 1900 IFEF$=CHR$(13)THEN1730
  93. 1910 IFEF$=CHR$(20)THEN1930
  94. 1920 GOTO1880
  95. 1930 E$=LEFT$(E$,LEN(E$)-1):GOTO1690
  96. 1940 IFEL<>7ANDEL<>8THENNL$="............"
  97. 1950 IFEL<>7ANDEL<>8THENE$=LEFT$(E$+NL$,EL):GOTO1690
  98. 1960 ZL=LEN(E$):FORI=1TOZL
  99. 1970 IFMID$(E$,I,1)="."ANDMID$(E$,I+1,1)="."THEN1990
  100. 1980 NEXT:GOTO2000
  101. 1990 E$=LEFT$(E$,I):GOTO1690
  102. 2000 FORI=1TOZL:MI$=MID$(E$,I,1)
  103. 2010 IFMI$<CHR$(48)ANDMI$<>CHR$(46)THEN2040
  104. 2020 IFMI$>CHR$(57)THEN2040
  105. 2030 NEXT:GOTO2050
  106. 2040 E$=LEFT$(E$,I-1):GOTO1690
  107. 2050 IFEL=8THEN2170
  108. 2060 VK=0:FORI=1TOZL:IFMID$(E$,I,1)="."THEN2080
  109. 2070 VK=VK+1:NEXT
  110. 2080 NK=ZL-VK-1:IFNK>2THENE$=LEFT$(E$,VK+1):GOTO1690
  111. 2090 VN$="0000.00"
  112. 2100 IFVK<=4THENVL=4-VK:NL=7-ZL-VL
  113. 2110 IFVK<=4THENE$=LEFT$(VN$,VL)+E$+RIGHT$(VN$,NL)
  114. 2120 IFVK=5ANDZL=5THENE$=E$+".0"
  115. 2130 IFVK=5ANDZL=6THENE$=E$+"0"
  116. 2140 IFVK=6ANDZL=6THENE$=E$+"."
  117. 2150 IFVK<=4ANDRIGHT$(E$,1)="."THENE$=LEFT$(E$,VK+1):GOTO1690
  118. 2160 GOTO1830
  119. 2170 IFLEN(E$)<8THEN1690
  120. 2180 IFLEFT$(E$,1)="."THENE$="":GOTO1690
  121. 2190 IFMID$(E$,3,1)<>"."THENE$="":GOTO1690
  122. 2200 IFMID$(E$,6,1)<>"."THENE$=LEFT$(E$,3):GOTO1690
  123. 2210 IFRIGHT$(E$,1)="."THENE$=LEFT$(E$,7):GOTO1690
  124. 2220 GOTO1830
  125. 2230 REM ************ A U S G A B E K R I T E R I E N ***********
  126. 2240 PRINT"[147] AUSGABEKRITERIUM ? [146]"
  127. 2250 PRINT"  1 [146]  EINN./AUSG."
  128. 2260 PRINT"  2 [146]  MONAT.JAHR"
  129. 2270 PRINT"  3 [146]  JAHR"
  130. 2280 PRINT"  4 [146]  TAGESDATUM"
  131. 2290 PRINT"  5 [146]  BETRAG"
  132. 2300 PRINT"  6 [146]  BER./ARTIKEL"
  133. 2310 PRINT"  7 [146]  BELEG-NR."
  134. 2320 PRINT" <C=><M>[146]   MENUE"
  135. 2330 GETKW$:IFKW$=CHR$(167)THENRUN
  136. 2340 IFVAL(KW$)<1ORVAL(KW$)>7THEN2330
  137. 2350 IFKW$="6"THENK$="BER./ARTIKEL":N$="[187][187][187][187][187].......":GOTO2430
  138. 2360 IFKW$="7"THENKL=3:K$="BELEG-NR.":N$="...":GOTO2920
  139. 2370 IFKW$="5"THENKL=7:K$="BETRAG":N$="*******"
  140. 2380 IFKW$="4"THENKL=8:K$="TAGESDATUM":N$="TT.MM.JJ"
  141. 2390 IFKW$="3"THENKL=2:K$="JAHR":N$="JJ"
  142. 2400 IFKW$="2"THENKL=5:K$="MONAT.JAHR":N$="MM.JJ"
  143. 2410 IFKW$="1"THENKL=1:K$="EINN./AUSG.":N$="*"
  144. 2420 GOTO2520
  145. 2430 PRINTCHR$(18);"[147] AUSGABEKRITERIUM  ";K$;" ":PRINT:PRINT
  146. 2440 PRINT"  L [146]  AUSWAHL V. LI. WAEHLBAR"
  147. 2450 PRINT"  F [146]  AUSWAHL NACH  5 STELLEN"
  148. 2460 PRINT"  Z [146]  AUSWAHL NACH 12 STELLEN"
  149. 2470 PRINT" <C=><M>[146]   MENUE"
  150. 2480 GETZF$:IFZF$=CHR$(167)THENRUN
  151. 2490 IFZF$="Z"ORZF$="L"THENKL=12:GOTO2520
  152. 2500 IFZF$="F"THENKL=5:N$="[187][187][187][187][187]":GOTO2520
  153. 2510 GOTO2480
  154. 2520 PRINTCHR$(18);"[147] AUSGABEKRITERIUM  ";K$;" ";ZF$;" "
  155. 2530 CS$="":IFKL=3THENCS$=CS$+""
  156. 2540 PRINTCS$;N$:IFKW$<>"7"THENPRINT"":GOTO2600
  157. 2550 PRINT"[145][145][145]BELEG-NR."
  158. 2560 PRINT"  LETZTE BELEG-NR.: [146]";
  159. 2570 IFBL<10THENPRINTCHR$(18);BL$;" "
  160. 2580 IFBL>9ANDBL<100THENPRINTCHR$(18);BL$;" "
  161. 2590 IFBL>99THENPRINTCHR$(18);"[157] ";BL$;" "
  162. 2600 PRINT"<CR>[146]   WEITER                       "
  163. 2610 PRINT"<DEL>[146]  KORREKTUR                    "
  164. 2620 PRINT"<C=><M>[146]   MENUE"
  165. 2630 GETAZ$:IFAZ$=CHR$(167)THENRUN
  166. 2640 IFFW$="F"ANDAZ$=CHR$(13)THEN3040
  167. 2641 IFFW$="F"ANDAZ$=CHR$(20)THEN2690
  168. 2642 IFFW$="F"AND(AZ$<CHR$(48)ORAZ$>CHR$(90))THEN2770
  169. 2643 IFFW$="F"AND(AZ$>CHR$(57)ANDAZ$<CHR$(65))THEN2770
  170. 2650 IFZF$="L"ANDAZ$=CHR$(13)THEN3040
  171. 2660 IFV$=""ANDAZ$=CHR$(13)THEN3050
  172. 2670 IFAZ$=CHR$(13)THEN3140
  173. 2680 IFAZ$=CHR$(44)THENAZ$=CHR$(46)
  174. 2690 IFAZ$=CHR$(20)ANDLEN(V$)<1THEN2630
  175. 2700 IFAZ$=CHR$(20)THENV$=LEFT$(V$,LEN(V$)-1):GOTO2770
  176. 2710 IFAZ$>CHR$(15)ANDAZ$<CHR$(32)THEN2630
  177. 2720 IFEZ$>CHR$(95)THEN2630
  178. 2730 V$=V$+AZ$
  179. 2740 IFKL=3ANDV$="000"THENV$="00"
  180. 2750 IFKW$="1"ORKW$="6"ORFW$="F"THENIFLEN(V$)=KLTHEN3060
  181. 2760 IFLEN(V$)=KLTHEN3160
  182. 2770 L=LEN(V$)
  183. 2780 PRINTCS$;V$;MID$(N$,L+1,KL-L);"         "
  184. 2790 PRINTCS$;"";:FORI=0TOL:PRINT" ";:NEXT:PRINT"[157]^            "
  185. 2800 GOTO2630
  186. 2810 PRINTCS$+V$+NN$+"         ":PRINT
  187. 2820 IFBW$="A"THENPRINT""
  188. 2830 PRINT"  B [146]  BILDSCHIRMAUSGABE      "
  189. 2840 PRINT"  P [146]  PLOTTER- / DRUCKER-   "
  190. 2850 PRINT"      & BILDSCHIRMAUSGABE"
  191. 2860 PRINT"<C=><M>[146]   MENUE "
  192. 2870 IFBW$="A"THENPRINT"[145][145][145][145][145][145][145][145][145][145][145][145]                    "
  193. 2880 GETAW$:IFAW$=CHR$(167)THENRUN
  194. 2890 IFAW$="P"THEN5910
  195. 2900 IFAW$="B"THEN3660
  196. 2910 GOTO2880
  197. 2920 PRINT"[147] AUSGABEKRITERIUM  ";K$
  198. 2930 PRINT" E [146]  EINZELBELEG"
  199. 2940 PRINT" B [146]  BELEGFOLGE"
  200. 2950 PRINT" A [146]  ALLE BELEGE"
  201. 2960 PRINT"<C=><M>[146]   MENUE"
  202. 2970 GETBW$:IFBW$=CHR$(167)THENRUN
  203. 2980 IFBW$="E"THEN2520
  204. 2990 IFBW$="B"THEN3520
  205. 3000 IFBW$="A"THEN3020
  206. 3010 GOTO2970
  207. 3020 K$="ALLE BELEGE"
  208. 3030 PRINT"";CHR$(18);" AUSGABEKRITERIUM  ";K$;" ":GOTO2810
  209. 3040 IFV$=""THEN2630
  210. 3045 NN$="                ":GOTO3060
  211. 3050 V$=LEFT$("............",KL)
  212. 3060 PRINT"":PRINTCS$;V$;LEFT$(NN$,KL-LEN(V$));" OK?<CR>[146]"
  213. 3070 PRINT"                          "
  214. 3080 GETAF$:IFAF$=CHR$(167)THENRUN
  215. 3090 IFAF$=CHR$(20)THEN3130
  216. 3100 IFFW$="F"ANDAF$=CHR$(13)THENFI$=V$:GOTO5210
  217. 3110 IFAF$=CHR$(13)THEN2810
  218. 3120 GOTO3080
  219. 3130 V$=LEFT$(V$,LEN(V$)-1):GOTO2630
  220. 3140 IFKW$="1"ORKW$="6"THENNL$="............"
  221. 3150 IFKW$="1"ORKW$="6"THENV$=LEFT$(V$+NL$,KL):GOTO2770
  222. 3160 ZL=LEN(V$):FORI=1TOZL
  223. 3170 IFMID$(V$,I,1)="."ANDMID$(V$,I+1,1)="."THEN3190
  224. 3180 NEXT:GOTO3200
  225. 3190 V$=LEFT$(V$,I):GOTO2770
  226. 3200 FORI=1TOZL:MI$=MID$(V$,I,1)
  227. 3210 IFMI$="."ANDKL=3THEN3250
  228. 3220 IFMI$<CHR$(48)ANDMI$<>"."THEN3250
  229. 3230 IFMI$>CHR$(57)THEN3250
  230. 3240 NEXT:GOTO3260
  231. 3250 V$=LEFT$(V$,I-1):GOTO2770
  232. 3260 IFKL=8THEN3410
  233. 3270 IFKL=5THEN3420
  234. 3280 IFKL=2THEN3430
  235. 3290 IFKL=3THEN3470
  236. 3300 VK=0:FORI=1TOZL:IFMID$(V$,I,1)="."THEN3320
  237. 3310 VK=VK+1:NEXT
  238. 3320 NK=ZL-VK-1:IFNK>2THENV$=LEFT$(V$,VK+1):GOTO2770
  239. 3330 VN$="0000.00"
  240. 3340 IFVK<=4THENVL=4-VK:NL=7-ZL-VL
  241. 3350 IFVK<=4THENV$=LEFT$(VN$,VL)+V$+RIGHT$(VN$,NL)
  242. 3360 IFVK=5ANDZL=5THENV$=V$+".0"
  243. 3370 IFVK=5ANDZL=6THENV$=V$+"0"
  244. 3380 IFVK=6ANDZL=6THENV$=V$+"."
  245. 3390 IFVK<=4ANDRIGHT$(V$,1)="."THENV$="":GOTO2770
  246. 3400 GOTO3060
  247. 3410 IFMID$(V$,6,1)<>"."THENV$=LEFT$(V$,3):GOTO2770
  248. 3420 IFMID$(V$,3,1)<>"."THENV$="":GOTO2770
  249. 3430 IFLEFT$(V$,1)="."THENV$="":GOTO2770
  250. 3440 IFRIGHT$(V$,1)="."THENV$=LEFT$(V$,KL-1):GOTO2770
  251. 3450 IFLEN(V$)<KLTHEN2770
  252. 3460 GOTO3060
  253. 3470 VN$="000"
  254. 3480 V$=LEFT$(VN$,3-ZL)+V$
  255. 3490 IFV$="000"THENV$="00":GOTO2770
  256. 3500 IFVAL(V$)>BLTHENV$="":GOTO2770
  257. 3510 GOTO3060
  258. 3520 CS$="":K$="BELEGFOLGE"
  259. 3530 PRINT"";CHR$(18);" AUSGABEKRITERIUM  ";K$;" "
  260. 3540 PRINT" VON BELEG-NR.:":GOTO4560
  261. 3550 BA$=SN$:SN$=""
  262. 3560 IFVAL(BA$)>BLTHENBA$="":GOTO4730
  263. 3570 PRINT"";CHR$(18);" AUSGABEKRITERIUM  ";K$;" ";BA$;" - "
  264. 3580 PRINT" BIS[146] BELEG-NR.:":GOTO4560
  265. 3590 BE$=SN$:SN$=""
  266. 3600 IFVAL(BE$)<VAL(BA$)THENBE$="":GOTO4730
  267. 3610 V$=BA$+" - "+BE$
  268. 3620 PRINT"";CHR$(18);" AUSGABEKRITERIUM  ";K$;" ";V$;" "
  269. 3630 GOTO2810
  270. 3640 REM **** A U S G A B E  D R U C K E R  /  M O N I T O R ****
  271. 3650 OPEN10,GA,0
  272. 3660 IFZF$<>"Z"ANDZF$<>"L"THEN3720
  273. 3670 PRINTCHR$(18);"[147] AUSGABEKRITERIUM  ";K$;" "
  274. 3680 PRINTCHR$(18);"                   ";V$;" "
  275. 3690 IFAW$="P"THENPRINT#10," AUSGABEKRITERIUM  ";K$
  276. 3700 IFAW$="P"THENPRINT#10,"                   ";V$
  277. 3710 GOTO3740
  278. 3720 PRINTCHR$(18);"[147] AUSGABEKRITERIUM  ";K$;" ";V$;" "
  279. 3730 IFAW$="P"THENPRINT#10," AUSGABEKRITERIUM  ";K$;" ";V$
  280. 3740 IFBW$<>"B"THENPRINT
  281. 3750 IFAW$="P"THENPRINT#10,""
  282. 3760 PRINT"BEL. DATUM     BETRAG   BER./ARTIKEL  *":PRINT
  283. 3770 IFAW$="P"THENPRINT#10,"BEL. DATUM     BETRAG   ";
  284. 3780 IFAW$="P"THENPRINT#10,"BER./ARTIKEL  *":PRINT#10,""
  285. 3790 FORI=1TO17
  286. 3800 READD$:IFD$="ENDE"THEN4080
  287. 3810 IFLEFT$(D$,2)="10"ANDMID$(D$,6,2)=""THEN3800
  288. 3820 IFI=1ANDBA$=LEFT$(D$,3)THEN3950
  289. 3830 IFI>1ANDBW$="B"THEN3950
  290. 3840 IFBW$="A"THEN3950
  291. 3850 IFKW$="1"ANDV$=MID$(D$,31,1)THEN3950
  292. 3860 IFKW$="2"ANDV$=MID$(D$,7,5)THEN3950
  293. 3870 IFKW$="3"ANDV$=MID$(D$,10,2)THEN3950
  294. 3880 IFKW$="4"ANDV$=MID$(D$,4,8)THEN3950
  295. 3890 IFKW$="5"ANDV$=MID$(D$,12,7)THEN3950
  296. 3900 IFKL=12ANDV$=MID$(D$,19,12)THEN3950
  297. 3910 IFKL=5ANDV$=MID$(D$,19,5)THEN3950
  298. 3920 IFZF$="L"ANDV$=MID$(D$,19,LEN(V$))THEN3950
  299. 3930 IFKW$="7"ANDV$=LEFT$(D$,3)THEN3950
  300. 3940 GOTO3800
  301. 3950 D1$=LEFT$(D$,3)+"  "
  302. 3960 D2$=MID$(D$,4,8)+"  "
  303. 3970 D3$=MID$(D$,12,7)+"  "
  304. 3980 D4$=MID$(D$,19,12)+"  "
  305. 3990 D5$=MID$(D$,31,1)+" "
  306. 4000 IFK=1THENRETURN
  307. 4010 PRINTD1$;D2$;D3$;D4$;D5$;
  308. 4020 IFAW$="P"THENPRINT#10,D1$;D2$;D3$;D4$;D5$
  309. 4030 IFD5$="- "THENS=S-VAL(D3$):SA=SA+VAL(D3$)
  310. 4040 IFD5$="+ "THENS=S+VAL(D3$):SE=SE+VAL(D3$)
  311. 4050 IFBE$=LEFT$(D$,3)THEN4080
  312. 4060 IFI=17THEN4380
  313. 4070 NEXT
  314. 4080 IFAW$="P"THENPRINT#10,""
  315. 4090 PRINT
  316. 4100 PRINT"KEIN (WEITERER) BELEG"
  317. 4110 PRINT
  318. 4120 IFAW$="P"THENPRINT#10,"KEIN (WEITERER) BELEG"
  319. 4130 IFAW$="P"THENPRINT#10,""
  320. 4140 S=INT(S*100+.5)/100:Z$=STR$(ABS(S))
  321. 4150 IFS>0THENPRINTCHR$(18);" HABEN: ";
  322. 4160 GOSUB4440:IFS>0THENPRINTSPC(8-VK)Z$;" "
  323. 4170 IFAW$="P"ANDS>0THENPRINT#10," HABEN DM: ";SPC(8-VK)Z$
  324. 4180 IFS<0THENPRINTCHR$(18);" SOLL : ";SPC(8-VK)Z$;" "
  325. 4190 IFAW$="P"ANDS<0THENPRINT#10," SOLL  DM: ";SPC(8-VK)Z$
  326. 4200 IFS=0THENPRINTCHR$(18);" EINN. / AUSG.  AUSGEGLICHEN "
  327. 4210 IFAW$="P"ANDS=0THENPRINT#10," EINN. / AUSG.  AUSGEGLICHEN "
  328. 4220 PRINT:Z$=""
  329. 4230 IFAW$="P"THENPRINT#10,""
  330. 4240 SA=INT(SA*100+.5)/100:Z$=STR$(SA):GOSUB4440
  331. 4250 PRINT" AUSG.: ";SPC(8-VK)Z$;" ";
  332. 4260 IFAW$="P"THENPRINT#10," AUSG. DM: ";SPC(8-VK)Z$
  333. 4270 Z$="":IFAW$="P"THENPRINT#10,""
  334. 4280 SE=INT(SE*100+.5)/100:Z$=STR$(SE):GOSUB4440
  335. 4290 PRINT" EINN.: ";SPC(8-VK)Z$
  336. 4300 IFAW$="P"THENPRINT#10," EINN. DM: ";SPC(8-VK)Z$
  337. 4310 Z$="":IFAW$="P"THENFORI=1TO6:PRINT#10,"":NEXT
  338. 4320 CLOSE10
  339. 4330 PRINT"  P [146]   AUSDRUCKEN";
  340. 4340 PRINT"    <C=><M>[146]   MENUE"
  341. 4350 GETAW$:IFAW$=CHR$(167)THENRUN
  342. 4360 IFAW$="P"THENRESTORE:S=0:SA=0:SE=0:GOTO5910
  343. 4370 GOTO4350
  344. 4380 PRINT"  ^ [146]   WEITER";
  345. 4390 PRINT"         <C=><M>[146]   MENUE"
  346. 4400 PRINT
  347. 4410 GETFF$:IFFF$=CHR$(167)THENRUN
  348. 4420 IFFF$="^"THENI=2:GOTO3800
  349. 4430 GOTO4410
  350. 4440 ZL=LEN(Z$):VK=0:NK=0
  351. 4450 FORI=1TOZL:IFMID$(Z$,I,1)="."THEN4470
  352. 4460 VK=VK+1:NEXT
  353. 4470 IFVK<ZLTHENNK=ZL-VK-1
  354. 4480 IFVK=ZLTHENNK=0:Z$=Z$+".00"
  355. 4490 IFNK=1THENZ$=Z$+"0"
  356. 4500 RETURN
  357. 4510 REM ****************** K O R R E K T U R *******************
  358. 4520 K=1:N$="..."
  359. 4530 CS$=""
  360. 4540 PRINTCHR$(18);"[147] WELCHER BELEG SOLL KORRIGIERT WERDEN? "
  361. 4550 PRINT" BELEG-NR."
  362. 4560 RESTORE:L=0:PRINTCS$;N$;"                   "
  363. 4570 PRINT" ";CHR$(18);" LETZTE BELEG-NR.: ";
  364. 4580 IFBL<10THENPRINTCHR$(18);BL$;" ";
  365. 4590 IFBL>9ANDBL<100THENPRINTCHR$(18);BL$;" ";
  366. 4600 IFBL>99THENPRINTCHR$(18);BL$;" ";
  367. 4610 PRINTCHR$(146);"                "
  368. 4620 PRINT" <CR>[146]   WEITER       "
  369. 4630 PRINT" <DEL>[146]  KORREKTUR     "
  370. 4640 PRINT" <C=><M>[146]   MENUE "
  371. 4650 GETSZ$:IFSZ$=CHR$(167)THENRUN
  372. 4660 IFSZ$=CHR$(20)ANDLEN(SN$)<1THEN4650
  373. 4670 IFSZ$=CHR$(20)THENSN$=LEFT$(SN$,LEN(SN$)-1):GOTO4730
  374. 4680 IFSZ$=CHR$(13)THEN4920
  375. 4690 IFSZ$<CHR$(48)ORSZ$>CHR$(57)THEN4740
  376. 4700 SN$=SN$+SZ$
  377. 4710 IFSN$="000"THENSN$="00"
  378. 4720 IFLEN(SN$)=3THEN4960
  379. 4730 L=LEN(SN$)
  380. 4740 PRINTCS$;SN$;MID$(N$,L+1,3-L);"        "
  381. 4750 PRINTCS$;"";:FORI=0TOL:PRINT" ";:NEXT:PRINT"[157]^    "
  382. 4760 GOTO4650
  383. 4770 READD$
  384. 4780 IFLEFT$(D$,2)="10"ANDMID$(D$,6,2)=""THEN4770
  385. 4790 IFSN$=LEFT$(D$,3)THEN4830
  386. 4800 IFD$="ENDE"THENPRINT"  BELEG NICHT VORHANDEN [146]"
  387. 4810 IFD$="ENDE"THENPRINT:PRINT:GOTO4860
  388. 4820 GOTO4770
  389. 4830 GOSUB3950
  390. 4840 PRINTCHR$(18)" ";D1$;D2$;D3$;D4$;"[157]";D5$
  391. 4850 PRINT" N [146]  NEUEINGABE"
  392. 4860 PRINT" W [146]  WEITERSUCHEN  "
  393. 4870 IFD$="ENDE"THENPRINT"[145][145][145][145]                      "
  394. 4880 GETKF$:IFKF$=CHR$(167)THENRUN
  395. 4890 IFKF$="N"THENBN=VAL(D1$):GOTO1350
  396. 4900 IFKF$="W"THENSN$="":GOTO4560
  397. 4910 GOTO4880
  398. 4920 IFLEN(SN$)=2THENSN$="0"+SN$
  399. 4930 IFLEN(SN$)=1THENSN$="00"+SN$
  400. 4940 IFLEN(SN$)<1THEN4650
  401. 4950 IFSN$="000"THENSN$="00":GOTO4730
  402. 4960 IFVAL(SN$)>BLTHENSN$="":GOTO4730
  403. 4970 PRINT"";CS$;SN$;" OK?<CR>[146]"
  404. 4980 PRINT"                          "
  405. 4990 GETSF$:IFSF$=CHR$(167)THENRUN
  406. 5000 IFSF$=CHR$(20)THEN5060
  407. 5010 IFSF$=CHR$(13)ANDK=1THEN5050
  408. 5020 IFSF$=CHR$(13)ANDMW$="[134]"ANDBA$=""THEN3550
  409. 5030 IFSF$=CHR$(13)ANDMW$="[134]"ANDBE$=""THEN3590
  410. 5040 GOTO4990
  411. 5050 PRINT"":PRINTCS$+SN$+"         ":PRINT:GOTO4770
  412. 5060 SN$=LEFT$(SN$,LEN(SN$)-1):GOTO4650
  413. 5070 IFPEEK(50307)=120THEN8000
  414. 5075 PRINT"[147]          WAHL DES FILENAMENS          [146]"
  415. 5080 PRINT" BITTE WAEHLEN:"
  416. 5090 PRINT"  H [146]  * HAUSHALTSBELEGE *"
  417. 5100 PRINT"  F [146]  * F I L E N A M E * , WAEHLBAR"
  418. 5110 PRINT" <C=><M>[146]   MENUE"
  419. 5120 GETFW$:IFFW$=CHR$(167)THENRUN
  420. 5130 IFFW$="F"THEN5160
  421. 5140 IFFW$="H"THENFI$="HAUSHALTSBELEGE":GOTO5210
  422. 5150 GOTO5120
  423. 5160 PRINT"        EINGABE DES FILENAMENS         "
  424. 5170 PRINT"     "
  425. 5180 KL=16:N$="................"
  426. 5190 GOTO2530
  427. 5200 REM **************** A B S P E I C H E R N *****************
  428. 5210 PRINT"       WAHL DES SPEICHERMEDIUMS        [146]"
  429. 5220 IFFW$="F"THENPRINT"";SPC(21);"          "
  430. 5230 IFFW$="H"THENPRINT"     HAUSHALTSBELEGE"
  431. 5240 PRINT"  B [146]  BAND                       "
  432. 5250 PRINT"  D [146]  DISKETTE                         "
  433. 5260 GETSW$:IFSW$=CHR$(167)THENRUN
  434. 5270 IFSW$="D"THEN6100
  435. 5280 IFSW$="B"THEN6230
  436. 5290 GOTO5260
  437. 5300 PRINT"[147]     ARBEITSCASSETTE IM RECORDER ?      [146]"
  438. 5310 PRINT" <C=><M>[146]    MENUE"
  439. 5320 PRINT" <S>[146]  SAVE'";FI$;"',";RA:PRINT
  440. 5330 GETSP$:IFSP$=CHR$(167)THENRUN
  441. 5340 IFSP$=CHR$(83)THEN5360
  442. 5350 GOTO5330
  443. 5360 SAVEFI$,RA,1:PRINT
  444. 5370 PRINT"             VERIFIZIEREN ?            [146]"
  445. 5380 PRINT"  V [146]  VERIFY, WENN ZURUECKGESPULT!"
  446. 5390 PRINT" <C=><M>[146]   MENUE"
  447. 5400 GETVF$:IFVF$=CHR$(167)THENRUN
  448. 5410 IFVF$="V"THEN5430
  449. 5420 GOTO5400
  450. 5430 IFFW$="F"THENVERIFYFI$,RA
  451. 5440 FORI=1TO2000:NEXT:RUN
  452. 5450 PRINT"[147]     ARBEITSDISKETTE IM LAUFWERK ?      [146]"
  453. 5460 PRINT"       FLOPPY IST EMPFANGSBEREIT      "
  454. 5470 PRINT" <C=><M>[146]   MENUE"
  455. 5480 IFFW$="F"THEN5500
  456. 5490 PRINT" <S>[146]  SAVE'@:HAUSHALTSBELEGE',";FA:GOTO5510
  457. 5500 PRINT" <S>[146]  SAVE'";FI$;"',";FA
  458. 5510 GETSP$:IFSP$=CHR$(167)THENRUN
  459. 5520 IFSP$="S"THEN5540
  460. 5530 GOTO5510
  461. 5540 IFFW$="H"THENSAVE"@:HAUSHALTSBELEGE",FA
  462. 5550 IFFW$="F"THENSAVEFI$,FA
  463. 5560 GOSUB6300
  464. 5600 GETVF$:IFVF$=CHR$(167)THENRUN
  465. 5620 GOTO5600
  466. 5650 REM ******** E I N G A B E U E B E R P R U E F U N G *********
  467. 5660 P1$=MID$(B$,13,1)
  468. 5670 P2$=RIGHT$(B$,1)
  469. 5680 IFP1$="."ANDP2$="+"THEN6400
  470. 5690 IFP1$="."ANDP2$="-"THEN6400
  471. 5700 IFP1$<>"."ORP2$<>"+"ORP2$<>"-"THENPRINT"[147]"
  472. 5710 PRINT"R I C H T I G E"
  473. 5720 PRINT"E I N G A B E   I N"
  474. 5730 PRINT"B E L E G - N R .: ";BN$;"?"
  475. 5740 PRINT"";CHR$(18);"  ";LEFT$(B$,8);"   ";MID$(B$,9,7);
  476. 5750 PRINT"   ";CHR$(18);MID$(B$,16,12);"   ";RIGHT$(B$,1);" "
  477. 5760 IFP1$<>"."ANDP2$<>"+"ANDP2$<>"-"THENGOTO5800
  478. 5770 IFP1$<>"."ANDP2$="+"THENGOTO5810
  479. 5780 IFP1$<>"."ANDP2$="-"THENGOTO5810
  480. 5790 IFP2$<>"+"ANDP2$<>"-"THENGOTO5820
  481. 5800 PRINT"                 ^                    ^":GOTO5830
  482. 5810 PRINT"                 ^":GOTO5830
  483. 5820 PRINT"                                      ^"
  484. 5830 PRINT" A [146]  ABLAGE"
  485. 5840 PRINT" N [146]  NEUEINGABE"
  486. 5850 PRINT"<C=><M>[146]   MENUE"
  487. 5860 GETPF$:IFPF$=CHR$(167)THENRUN
  488. 5870 IFPF$="N"THENE$="":GOTO1350
  489. 5880 IFPF$="A"THEN6400
  490. 5890 GOTO5860
  491. 5900 REM **** W A H L  D E R  G E R A E T E A D R E S S E N ****
  492. 5910 PRINT"[147]        WAHL DER DRUCKERADRESSE         [146]"
  493. 5920 PRINT" BITTE WAEHLEN:"
  494. 5930 PRINT"  4 [146]  DRUCKER"
  495. 5940 PRINT"  5 [146]  DRUCKER"
  496. 5950 PRINT"  6 [146]  PLOTTER"
  497. 5960 PRINT" <C=><M>[146]   MENUE"
  498. 5970 GETGA$:IFGA$=CHR$(167)THENRUN
  499. 5980 GA=VAL(GA$)
  500. 5990 IFGA<>4ANDGA<>5ANDGA<>6THEN5970
  501. 6000 IFLEN(GA$)=1THEN6020
  502. 6010 GOTO5970
  503. 6020 OPENGA,GA:POKE768,61
  504. 6030 PRINT#GA:CLOSEGA:POKE768,139
  505. 6040 IFST<>-128THEN3650
  506. 6045 PRINT""
  507. 6050 PRINT"";
  508. 6060 PRINTCHR$(18);" GERAETEADRESSE ";"[157]"GA;"[157] "
  509. 6070 PRINT"";
  510. 6080 PRINTCHR$(18);" IST NICHT EMPFANGSBEREIT "
  511. 6090 GOTO5970
  512. 6100 PRINT"        WAHL DER FLOPPYADRESSE         [146]"
  513. 6110 PRINT"  8 [146]  FLOPPY    "
  514. 6120 PRINT"  9 [146]  FLOPPY    "
  515. 6130 GETFA$:IFFA$=CHR$(167)THENRUN
  516. 6140 FA=VAL(FA$)
  517. 6150 IFFA<>8ANDFA<>9THEN6130
  518. 6160 IFLEN(FA$)=1THENPOKE768,61
  519. 6170 POKE144,0:OPEN1,FA,0:CLOSE1:POKE768,139
  520. 6180 IFST<>-128THEN5450
  521. 6185 PRINT"[145]";
  522. 6190 PRINT"";
  523. 6200 PRINTCHR$(18);" FLOPPY ";"[157]"FA"[157] IST NICHT "
  524. 6210 PRINT"";
  525. 6220 PRINTCHR$(18);" EMPFANGSBEREIT! ":PRINT"[145]";:GOTO6130
  526. 6230 IFPEEK(50307)=120THEN8000
  527. 6232 PRINT"        WAHL DER RECORDERADRESSE        [146]"
  528. 6240 PRINT"  1 [146]  NORMALTAPE"
  529. 6250 PRINT"  7 [146]  SUPERTAPE"
  530. 6260 GETRA$:IFRA$=CHR$(167)THENRUN
  531. 6270 RA=VAL(RA$)
  532. 6272 IFRA=7ANDPEEK(817)=244THEN6500
  533. 6280 IFRA<>1ANDRA<>7THEN6260
  534. 6290 IFLEN(RA$)=1THEN5300
  535. 6300 OPEN15,FA,15:INPUT#15,MN,M$,MT,MS:CLOSE15
  536. 6310 IFMN=0THEN6330
  537. 6320 PRINT"[147]            FLOPPYFEHLERKANAL          [146]"
  538. 6330 PRINT"";MN; M$;MT;MS:IFMN=0THENRETURN
  539. 6340 PRINT"  Z [146]  ZURUECK ZUM 'SAVE'"
  540. 6350 PRINT" <C=><M>[146]   MENUE"
  541. 6360 GETFK$:IFFK$=CHR$(167)THENRUN
  542. 6370 IFFK$="Z"THEN6170
  543. 6380 GOTO6360
  544. 6390 REM *********** D A T A A U F B E R E I T U N G ************
  545. 6400 IFBN<10THEND$=""+STR$(BN)+"[157][157][157]00"+""+B$
  546. 6410 IFBN>9ANDBN<100THEND$=""+STR$(BN)+"[157][157][157]0"+""+B$
  547. 6420 IFBN=>100THEND$=STR$(BN)+B$
  548. 6425 PRINT""
  549. 6430 PRINT"[147][157]"DZ"DATA"D$
  550. 6440 IFK=0THENPRINT"10000 DATA"DZ
  551. 6450 PRINT"RUN"
  552. 6460 POKE631,19:POKE632,13:POKE633,13:POKE634,13:POKE198,4
  553. 6470 END
  554. 6500 PRINT"":PRINT"";
  555. 6502 PRINTCHR$(18);"SUPERTAPE IST "
  556. 6510 PRINT"";
  557. 6512 PRINTCHR$(18);"NICHT AKTIVIERT !!"
  558. 6520 GOTO6260
  559. 8000 PRINT"[147]"
  560. 8010 PRINT:PRINT:PRINT"     [144] DAS [146]INPUT 64[146][144] - BETRIEBSSYSTEM [146][154]"
  561. 8020 PRINT:PRINT"        BEFINDET SICH IM RECHNER."
  562. 8030 PRINT:PRINT:PRINT"ZUR ZEIT KANN VON DIESEM PROGRAMM AUS- "
  563. 8040 PRINT"GEHEND NICHT GESPEICHERT WERDEN."
  564. 8050 PRINT
  565. 8060 PRINT"DIESES PROGRAMM BITTE ERST MIT CTRL S"
  566. 8070 PRINT"AUF IHREN EIGENEN DATENTRAEGER     "
  567. 8080 PRINT"ABSPEICHERN."
  568. 8970 POKE214,20:POKE211,2:SYS58640
  569. 8980 PRINT"BITTE TASTE DRUECKEN!"
  570. 8990 GETX$:IFX$=""THEN8990
  571. 9000 RUN
  572. 9990 REM ***************** D A T A A B L A G E ******************
  573. 10000 DATA 10000
  574. 11000 DATA ENDE
  575.